home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / hyperala.sit / HyperAlarms 1.1 / background_2697.txt < prev    next >
Text File  |  1988-11-14  |  20KB  |  939 lines
  1. -- background: 2697 from stack: in.1
  2. -- bmap block id: 2296
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push recent card
  9. end openBackground
  10.  
  11.  
  12.  
  13.  
  14. -- part 1 (button)
  15. -- low flags: 00
  16. -- high flags: 0000
  17. -- rect: left=12 top=233 right=264 bottom=55
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 10610 / 10610
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: dial phone
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   get the selection
  29.   if it is empty then get the message
  30.   if it is empty then ask "Dial what number?"
  31.   if it is not empty then
  32.     push this card
  33.     visual effect zoom open
  34.     go to stack "Phone"
  35.     dial it
  36.     pop card
  37.   end if
  38. end mouseUp
  39.  
  40.  
  41.  
  42. -- part 8 (field)
  43. -- low flags: 00
  44. -- high flags: 4000
  45. -- rect: left=30 top=128 right=220 bottom=454
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 0
  49. -- font id: 3
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Comments
  54.  
  55.  
  56. -- part 4 (field)
  57. -- low flags: 00
  58. -- high flags: 0000
  59. -- rect: left=33 top=89 right=107 bottom=177
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 0
  63. -- font id: 4
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Date
  68.  
  69.  
  70. -- part 11 (field)
  71. -- low flags: 00
  72. -- high flags: 0000
  73. -- rect: left=176 top=89 right=107 bottom=242
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 0 / 0
  76. -- text alignment: 0
  77. -- font id: 4
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: Time
  82.  
  83.  
  84. -- part 25 (button)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=90 top=233 right=264 bottom=127
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 15972 / 15972
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: go to calendar
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   closeAlarms
  99.   get the seconds
  100.   convert it to dateItems
  101.   put ((item 1 of it) - 1987) *2 into whichSix
  102.   if item 2 of it > 6 then add 1 to whichSix
  103.   visual effect zoom open
  104.   if whichSix < 1 then go card 1 of stack "Datebook"
  105.   else if whichSix > 5 then go card 5 of stack "Datebook"
  106.   else
  107.     go to card whichSix of stack "Datebook"
  108.     send "bracketWeek" && the seconds to this card
  109.   end if
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 26 (button)
  115. -- low flags: 00
  116. -- high flags: 0000
  117. -- rect: left=378 top=240 right=264 bottom=405
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 1014 / 1014
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: Prev
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   visual effect barn door open very fast to gray
  129.   go to previous card
  130. end mouseUp
  131.  
  132.  
  133.  
  134. -- part 27 (button)
  135. -- low flags: 00
  136. -- high flags: 0000
  137. -- rect: left=407 top=240 right=264 bottom=440
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 1013 / 1013
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: Next
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   visual effect barn door open very fast to gray
  149.   go to next card
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 28 (button)
  155. -- low flags: 00
  156. -- high flags: 0000
  157. -- rect: left=54 top=233 right=264 bottom=91
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 3430 / 3430
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Address
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   closeAlarms
  169.   get the selection
  170.   visual effect zoom open
  171.   go to "Address"
  172.   if it is not empty then find it
  173. end mouseUp
  174.  
  175.  
  176.  
  177. -- part 39 (button)
  178. -- low flags: 00
  179. -- high flags: 0000
  180. -- rect: left=469 top=240 right=264 bottom=500
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 1012 / 1012
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: Return
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   closeAlarms
  192.   visual effect iris close
  193.   pop card
  194. end mouseUp
  195.  
  196.  
  197.  
  198. -- part 47 (button)
  199. -- low flags: 00
  200. -- high flags: 0000
  201. -- rect: left=126 top=233 right=264 bottom=158
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 21700 / 21700
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: Home
  210. ----- HyperTalk script -----
  211. on mouseUp
  212.   closeAlarms
  213.   visual effect iris open
  214.   go Home
  215. end mouseUp
  216.  
  217.  
  218.  
  219. -- part 48 (field)
  220. -- low flags: 80
  221. -- high flags: 0000
  222. -- rect: left=477 top=52 right=329 bottom=512
  223. -- title width / last selected line: 0
  224. -- icon id / first selected line: 0 / 0
  225. -- text alignment: 0
  226. -- font id: 3
  227. -- text size: 9
  228. -- style flags: 0
  229. -- line height: 10
  230. -- part name: Checks
  231.  
  232.  
  233. -- part 49 (button)
  234. -- low flags: 00
  235. -- high flags: 2000
  236. -- rect: left=413 top=44 right=56 bottom=436
  237. -- title width / last selected line: 0
  238. -- icon id / first selected line: 16692 / 16692
  239. -- text alignment: 1
  240. -- font id: 0
  241. -- text size: 12
  242. -- style flags: 0
  243. -- line height: 16
  244. -- part name: Month+
  245. ----- HyperTalk script -----
  246. on mouseDown
  247.   put 1 into count
  248.   get field AlarmTime
  249.   convert it to dateItems
  250.   repeat until the mouse is up
  251.     put item 2 of it into NewMonth
  252.     add 1 to NewMonth
  253.     if NewMonth > 12 then put 1 into NewMonth
  254.     put NewMonth into item 2 of it
  255.     put it into NewDate
  256.     convert NewDate to abbrev Date
  257.     put NewDate into field Date
  258.     put it into NewTime
  259.     convert NewTime to short time
  260.     put NewTime into field Time
  261.     add 1 to count
  262.   end repeat
  263.   convert it to seconds
  264.   put it into field AlarmTime
  265.   checkAlarm
  266. end mouseDown
  267.  
  268.  
  269.  
  270. -- part 52 (button)
  271. -- low flags: 00
  272. -- high flags: 2000
  273. -- rect: left=435 top=44 right=56 bottom=456
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 3584 / 3584
  276. -- text alignment: 1
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 16
  281. -- part name: Month-
  282. ----- HyperTalk script -----
  283. on mouseDown
  284.   put 1 into count
  285.   get field AlarmTime
  286.   convert it to dateItems
  287.   repeat until the mouse is up
  288.     put item 2 of it into NewMonth
  289.     subtract 1 from NewMonth
  290.     if NewMonth <= 0 then put 12 into NewMonth
  291.     put NewMonth into item 2 of it
  292.     put it into NewDate
  293.     convert NewDate to abbrev Date
  294.     put NewDate into field Date
  295.     put it into NewTime
  296.     convert NewTime to short time
  297.     put NewTime into field Time
  298.     add 1 to count
  299.   end repeat
  300.   convert it to seconds
  301.   put it into field AlarmTime
  302.   checkAlarm
  303. end mouseDown
  304.  
  305.  
  306.  
  307. -- part 53 (button)
  308. -- low flags: 00
  309. -- high flags: 2000
  310. -- rect: left=414 top=60 right=72 bottom=437
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 16692 / 16692
  313. -- text alignment: 1
  314. -- font id: 0
  315. -- text size: 12
  316. -- style flags: 0
  317. -- line height: 16
  318. -- part name: Day+
  319. ----- HyperTalk script -----
  320. on mouseDown
  321.   put 1 into count
  322.   get field AlarmTime
  323.   convert it to seconds
  324.   repeat until the mouse is up
  325.     add (60*60*24) to it
  326.     put it into NewDate
  327.     convert NewDate to abbrev Date
  328.     put NewDate into field Date
  329.     put it into NewTime
  330.     convert NewTime to short time
  331.     put NewTime into field Time
  332.     add 1 to count
  333.   end repeat
  334.   convert it to seconds
  335.   put it into field AlarmTime
  336.   checkAlarm
  337. end mouseDown
  338.  
  339.  
  340.  
  341. -- part 54 (button)
  342. -- low flags: 00
  343. -- high flags: 2000
  344. -- rect: left=415 top=77 right=89 bottom=438
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 16692 / 16692
  347. -- text alignment: 1
  348. -- font id: 0
  349. -- text size: 12
  350. -- style flags: 0
  351. -- line height: 16
  352. -- part name: Year+
  353. ----- HyperTalk script -----
  354. on mouseDown
  355.   put 1 into count
  356.   get field AlarmTime
  357.   convert it to dateItems
  358.   repeat until the mouse is up
  359.     add 1 to item 1 of it
  360.     put it into NewDate
  361.     convert NewDate to abbrev Date
  362.     put NewDate into field Date
  363.     put it into NewTime
  364.     convert NewTime to short time
  365.     put NewTime into field Time
  366.     add 1 to count
  367.   end repeat
  368.   convert it to seconds
  369.   put it into field AlarmTime
  370.   checkAlarm
  371. end mouseDown
  372.  
  373.  
  374.  
  375. -- part 55 (button)
  376. -- low flags: 00
  377. -- high flags: 2000
  378. -- rect: left=415 top=93 right=105 bottom=438
  379. -- title width / last selected line: 0
  380. -- icon id / first selected line: 16692 / 16692
  381. -- text alignment: 1
  382. -- font id: 0
  383. -- text size: 12
  384. -- style flags: 0
  385. -- line height: 16
  386. -- part name: Hour+
  387. ----- HyperTalk script -----
  388. on mouseDown
  389.   put 1 into count
  390.   get field AlarmTime
  391.   convert it to dateItems
  392.   repeat until the mouse is up
  393.     add 1 to item 4 of it
  394.     if item 4 of it > 23 then
  395.       put 0 into item 4 of it
  396.     end if
  397.     put it into NewDate
  398.     convert NewDate to abbrev Date
  399.     put NewDate into field Date
  400.     put it into NewTime
  401.     convert NewTime to short time
  402.     put NewTime into field Time
  403.     add 1 to count
  404.   end repeat
  405.   convert it to seconds
  406.   put it into field AlarmTime
  407.   checkAlarm
  408. end mouseDown
  409.  
  410.  
  411.  
  412. -- part 56 (button)
  413. -- low flags: 00
  414. -- high flags: 2000
  415. -- rect: left=436 top=60 right=72 bottom=457
  416. -- title width / last selected line: 0
  417. -- icon id / first selected line: 3584 / 3584
  418. -- text alignment: 1
  419. -- font id: 0
  420. -- text size: 12
  421. -- style flags: 0
  422. -- line height: 16
  423. -- part name: Day-
  424. ----- HyperTalk script -----
  425. on mouseDown
  426.   put 1 into count
  427.   get field AlarmTime
  428.   convert it to seconds
  429.   repeat until the mouse is up
  430.     subtract (60*60*24) from it
  431.     put it into NewDate
  432.     convert NewDate to abbrev Date
  433.     put NewDate into field Date
  434.     put it into NewTime
  435.     convert NewTime to short time
  436.     put NewTime into field Time
  437.     add 1 to count
  438.   end repeat
  439.   convert it to seconds
  440.   put it into field AlarmTime
  441.   checkAlarm
  442. end mouseDown
  443.  
  444.  
  445.  
  446. -- part 57 (button)
  447. -- low flags: 00
  448. -- high flags: 2000
  449. -- rect: left=437 top=77 right=89 bottom=458
  450. -- title width / last selected line: 0
  451. -- icon id / first selected line: 3584 / 3584
  452. -- text alignment: 1
  453. -- font id: 0
  454. -- text size: 12
  455. -- style flags: 0
  456. -- line height: 16
  457. -- part name: Year-
  458. ----- HyperTalk script -----
  459. on mouseDown
  460.   put 1 into count
  461.   get field AlarmTime
  462.   convert it to dateItems
  463.   repeat until the mouse is up
  464.     subtract 1 from item 1 of it
  465.     put it into NewDate
  466.     convert NewDate to abbrev Date
  467.     put NewDate into field Date
  468.     put it into NewTime
  469.     convert NewTime to short time
  470.     put NewTime into field Time
  471.     add 1 to count
  472.   end repeat
  473.   convert it to seconds
  474.   put it into field AlarmTime
  475.   checkAlarm
  476. end mouseDown
  477.  
  478.  
  479.  
  480. -- part 58 (button)
  481. -- low flags: 00
  482. -- high flags: 2000
  483. -- rect: left=437 top=93 right=105 bottom=458
  484. -- title width / last selected line: 0
  485. -- icon id / first selected line: 3584 / 3584
  486. -- text alignment: 1
  487. -- font id: 0
  488. -- text size: 12
  489. -- style flags: 0
  490. -- line height: 16
  491. -- part name: Hour-
  492. ----- HyperTalk script -----
  493. on mouseDown
  494.   put 1 into count
  495.   get field AlarmTime
  496.   convert it to dateItems
  497.   repeat until the mouse is up
  498.     subtract 1 from item 4 of it
  499.     if item 4 of it < 0 then
  500.       put 23 into item 4 of it
  501.     end if
  502.     put it into NewDate
  503.     convert NewDate to abbrev Date
  504.     put NewDate into field Date
  505.     put it into NewTime
  506.     convert NewTime to short time
  507.     put NewTime into field Time
  508.     add 1 to count
  509.   end repeat
  510.   convert it to seconds
  511.   put it into field AlarmTime
  512.   checkAlarm
  513. end mouseDown
  514.  
  515.  
  516.  
  517. -- part 59 (field)
  518. -- low flags: 80
  519. -- high flags: 0000
  520. -- rect: left=212 top=26 right=42 bottom=330
  521. -- title width / last selected line: 0
  522. -- icon id / first selected line: 0 / 0
  523. -- text alignment: 0
  524. -- font id: 4
  525. -- text size: 9
  526. -- style flags: 0
  527. -- line height: 12
  528. -- part name: AlarmTime
  529.  
  530.  
  531. -- part 60 (button)
  532. -- low flags: 00
  533. -- high flags: A003
  534. -- rect: left=321 top=276 right=299 bottom=421
  535. -- title width / last selected line: 0
  536. -- icon id / first selected line: 0 / 0
  537. -- text alignment: 1
  538. -- font id: 0
  539. -- text size: 12
  540. -- style flags: 0
  541. -- line height: 16
  542. -- part name: Delete Alarm
  543. ----- HyperTalk script -----
  544. on mouseUp
  545.   go to stack "HyperAlarm Help 1.1"
  546.   go to first card of bkgnd "Register"
  547. end mouseUp
  548.  
  549.  
  550.  
  551. -- part 64 (button)
  552. -- low flags: 00
  553. -- high flags: 0000
  554. -- rect: left=344 top=240 right=265 bottom=375
  555. -- title width / last selected line: 0
  556. -- icon id / first selected line: 30557 / 30557
  557. -- text alignment: 1
  558. -- font id: 0
  559. -- text size: 12
  560. -- style flags: 0
  561. -- line height: 16
  562. -- part name: Prev
  563. ----- HyperTalk script -----
  564. on mouseUp
  565.   visual effect wipe up
  566.   go to first card
  567. end mouseUp
  568.  
  569.  
  570.  
  571. -- part 65 (button)
  572. -- low flags: 00
  573. -- high flags: 0000
  574. -- rect: left=439 top=240 right=264 bottom=471
  575. -- title width / last selected line: 0
  576. -- icon id / first selected line: 26865 / 26865
  577. -- text alignment: 1
  578. -- font id: 0
  579. -- text size: 12
  580. -- style flags: 0
  581. -- line height: 16
  582. -- part name: Next
  583. ----- HyperTalk script -----
  584. on mouseUp
  585.   visual effect wipe down
  586.   go to last card
  587. end mouseUp
  588.  
  589.  
  590.  
  591. -- part 66 (button)
  592. -- low flags: 00
  593. -- high flags: A003
  594. -- rect: left=73 top=276 right=298 bottom=173
  595. -- title width / last selected line: 0
  596. -- icon id / first selected line: 0 / 0
  597. -- text alignment: 1
  598. -- font id: 0
  599. -- text size: 12
  600. -- style flags: 0
  601. -- line height: 16
  602. -- part name: New Alarm
  603. ----- HyperTalk script -----
  604. on mouseUp
  605.   go to stack "HyperAlarm Help 1.1"
  606.   go to first card of bkgnd "Register"
  607. end mouseUp
  608.  
  609.  
  610.  
  611. -- part 67 (field)
  612. -- low flags: 80
  613. -- high flags: 0000
  614. -- rect: left=241 top=89 right=107 bottom=267
  615. -- title width / last selected line: 0
  616. -- icon id / first selected line: 0 / 0
  617. -- text alignment: 0
  618. -- font id: 4
  619. -- text size: 12
  620. -- style flags: 0
  621. -- line height: 16
  622. -- part name: Expired
  623.  
  624.  
  625. -- part 68 (button)
  626. -- low flags: 00
  627. -- high flags: C005
  628. -- rect: left=242 top=86 right=100 bottom=315
  629. -- title width / last selected line: 0
  630. -- icon id / first selected line: 0 / 0
  631. -- text alignment: 1
  632. -- font id: 0
  633. -- text size: 12
  634. -- style flags: 0
  635. -- line height: 16
  636. -- part name: Expired
  637.  
  638.  
  639. -- part 71 (button)
  640. -- low flags: 00
  641. -- high flags: 0000
  642. -- rect: left=157 top=233 right=264 bottom=196
  643. -- title width / last selected line: 0
  644. -- icon id / first selected line: 25002 / 25002
  645. -- text alignment: 1
  646. -- font id: 0
  647. -- text size: 12
  648. -- style flags: 0
  649. -- line height: 16
  650. -- part name: New Button
  651. ----- HyperTalk script -----
  652. on mouseUp
  653.   closeAlarms
  654.   go to first card of stack "HyperAlarm Help 1.1"
  655. end mouseUp
  656.  
  657.  
  658.  
  659.  
  660. -- part 72 (field)
  661. -- low flags: 01
  662. -- high flags: 0000
  663. -- rect: left=32 top=27 right=42 bottom=209
  664. -- title width / last selected line: 0
  665. -- icon id / first selected line: 0 / 0
  666. -- text alignment: 1
  667. -- font id: 4
  668. -- text size: 9
  669. -- style flags: 0
  670. -- line height: 12
  671. -- part name: Today
  672.  
  673.  
  674. -- part 73 (button)
  675. -- low flags: 00
  676. -- high flags: 8003
  677. -- rect: left=192 top=309 right=329 bottom=306
  678. -- title width / last selected line: 0
  679. -- icon id / first selected line: 0 / 0
  680. -- text alignment: 1
  681. -- font id: 0
  682. -- text size: 12
  683. -- style flags: 0
  684. -- line height: 16
  685. -- part name: Disable Alarms
  686. ----- HyperTalk script -----
  687. on mouseUp
  688.   global Alarm
  689.   put empty into Alarm
  690.   visual effect zoom open
  691.   pop card
  692. end mouseUp
  693.  
  694.  
  695.  
  696. -- part 75 (button)
  697. -- low flags: 00
  698. -- high flags: C005
  699. -- rect: left=242 top=100 right=114 bottom=332
  700. -- title width / last selected line: 0
  701. -- icon id / first selected line: 0 / 0
  702. -- text alignment: 1
  703. -- font id: 0
  704. -- text size: 12
  705. -- style flags: 0
  706. -- line height: 16
  707. -- part name: AutoReset
  708. ----- HyperTalk script -----
  709. on mouseUp
  710.   if hilite of me is true then
  711.     set hilite of me to false
  712.     put false into field AutoReset
  713.     hide bkgnd button "Do a reset"
  714.     hide field AMonth
  715.     hide field ADay
  716.     hide field AYear
  717.     hide field AHour
  718.     hide field AMinute
  719.   else
  720.     set hilite of me to true
  721.     put true into field AutoReset
  722.     show bkgnd button "Do a reset"
  723.     show field AMonth
  724.     show field ADay
  725.     show field AYear
  726.     show field AHour
  727.     show field AMinute
  728.   end if
  729. end mouseUp
  730.  
  731.  
  732.  
  733. -- part 76 (field)
  734. -- low flags: 00
  735. -- high flags: 0002
  736. -- rect: left=457 top=43 right=59 bottom=501
  737. -- title width / last selected line: 0
  738. -- icon id / first selected line: 0 / 0
  739. -- text alignment: 1
  740. -- font id: 0
  741. -- text size: 12
  742. -- style flags: 0
  743. -- line height: 16
  744. -- part name: AMonth
  745.  
  746.  
  747. -- part 77 (field)
  748. -- low flags: 00
  749. -- high flags: 0002
  750. -- rect: left=457 top=58 right=74 bottom=501
  751. -- title width / last selected line: 0
  752. -- icon id / first selected line: 0 / 0
  753. -- text alignment: 1
  754. -- font id: 0
  755. -- text size: 12
  756. -- style flags: 0
  757. -- line height: 16
  758. -- part name: ADay
  759.  
  760.  
  761. -- part 78 (field)
  762. -- low flags: 00
  763. -- high flags: 0002
  764. -- rect: left=457 top=73 right=89 bottom=501
  765. -- title width / last selected line: 0
  766. -- icon id / first selected line: 0 / 0
  767. -- text alignment: 1
  768. -- font id: 0
  769. -- text size: 12
  770. -- style flags: 0
  771. -- line height: 16
  772. -- part name: AYear
  773.  
  774.  
  775. -- part 79 (field)
  776. -- low flags: 00
  777. -- high flags: 0002
  778. -- rect: left=457 top=88 right=104 bottom=501
  779. -- title width / last selected line: 0
  780. -- icon id / first selected line: 0 / 0
  781. -- text alignment: 1
  782. -- font id: 0
  783. -- text size: 12
  784. -- style flags: 0
  785. -- line height: 16
  786. -- part name: AHour
  787.  
  788.  
  789. -- part 80 (field)
  790. -- low flags: 81
  791. -- high flags: 0000
  792. -- rect: left=245 top=112 right=124 bottom=257
  793. -- title width / last selected line: 0
  794. -- icon id / first selected line: 0 / 0
  795. -- text alignment: 0
  796. -- font id: 4
  797. -- text size: 12
  798. -- style flags: 0
  799. -- line height: 16
  800. -- part name: AutoReset
  801.  
  802.  
  803. -- part 81 (field)
  804. -- low flags: 01
  805. -- high flags: 0000
  806. -- rect: left=462 top=24 right=40 bottom=506
  807. -- title width / last selected line: 0
  808. -- icon id / first selected line: 0 / 0
  809. -- text alignment: 1
  810. -- font id: 0
  811. -- text size: 12
  812. -- style flags: 0
  813. -- line height: 16
  814. -- part name: CardNumber
  815.  
  816.  
  817. -- part 82 (button)
  818. -- low flags: 00
  819. -- high flags: 8003
  820. -- rect: left=197 top=276 right=298 bottom=297
  821. -- title width / last selected line: 0
  822. -- icon id / first selected line: 0 / 0
  823. -- text alignment: 1
  824. -- font id: 0
  825. -- text size: 12
  826. -- style flags: 0
  827. -- line height: 16
  828. -- part name: Do a reset
  829. ----- HyperTalk script -----
  830. on mouseUp
  831.   if hilite of bkgnd button AutoReset is true then
  832.     resetAlarm
  833.   else
  834.     beep
  835.   end if
  836. end mouseUp
  837.  
  838.  
  839.  
  840. -- part 83 (button)
  841. -- low flags: 00
  842. -- high flags: 2000
  843. -- rect: left=415 top=109 right=121 bottom=438
  844. -- title width / last selected line: 0
  845. -- icon id / first selected line: 16692 / 16692
  846. -- text alignment: 1
  847. -- font id: 0
  848. -- text size: 12
  849. -- style flags: 0
  850. -- line height: 16
  851. -- part name: Minute+
  852. ----- HyperTalk script -----
  853. on mouseDown
  854.   put 1 into count
  855.   get field AlarmTime
  856.   convert it to dateItems
  857.   repeat until the mouse is up
  858.     if count = 5 then
  859.       subtract ((item 5 of it) mod 5) from item 5 of it
  860.       add 5 to item 5 of it
  861.     else
  862.       if count > 5 then
  863.         add 5 to item 5 of it
  864.       else
  865.         add 1 to item 5 of it
  866.       end if
  867.     end if
  868.     if item 5 of it > 59 then
  869.       put 0 into item 5 of it
  870.     end if
  871.     put it into NewDate
  872.     convert NewDate to abbrev Date
  873.     put NewDate into field Date
  874.     put it into NewTime
  875.     convert NewTime to short time
  876.     put NewTime into field Time
  877.     add 1 to count
  878.   end repeat
  879.   convert it to seconds
  880.   put it into field AlarmTime
  881.   checkAlarm
  882. end mouseDown
  883.  
  884.  
  885.  
  886. -- part 84 (button)
  887. -- low flags: 00
  888. -- high flags: 2000
  889. -- rect: left=437 top=109 right=121 bottom=458
  890. -- title width / last selected line: 0
  891. -- icon id / first selected line: 3584 / 3584
  892. -- text alignment: 1
  893. -- font id: 0
  894. -- text size: 12
  895. -- style flags: 0
  896. -- line height: 16
  897. -- part name: Minute-
  898. ----- HyperTalk script -----
  899. on mouseDown
  900.   put 1 into count
  901.   get field AlarmTime
  902.   convert it to dateItems
  903.   repeat until the mouse is up
  904.     if count > 5 then
  905.       subtract ((item 5 of it) mod 5) + 5 from item 5 of it
  906.     else
  907.       subtract 1 from item 5 of it
  908.     end if
  909.     if item 5 of it < 0 then
  910.       put 59 into item 5 of it
  911.     end if
  912.     put it into NewDate
  913.     convert NewDate to abbrev Date
  914.     put NewDate into field Date
  915.     put it into NewTime
  916.     convert NewTime to short time
  917.     put NewTime into field Time
  918.     add 1 to count
  919.   end repeat
  920.   convert it to seconds
  921.   put it into field AlarmTime
  922.   checkAlarm
  923. end mouseDown
  924.  
  925.  
  926.  
  927. -- part 85 (field)
  928. -- low flags: 00
  929. -- high flags: 0002
  930. -- rect: left=457 top=103 right=119 bottom=501
  931. -- title width / last selected line: 0
  932. -- icon id / first selected line: 0 / 0
  933. -- text alignment: 1
  934. -- font id: 0
  935. -- text size: 12
  936. -- style flags: 0
  937. -- line height: 16
  938. -- part name: AMinute
  939.